/ Code Segment ? Page 1
*0200 / Code Segment starts at 0200o
Start, cla cll / Clear AC and Link
tls / Wake Up Printer
tad STR / Get address of output string
dca IR10 / and store it in Index Register 10
Loop, tad i IR10 / Get next character
sna / Skip if not a Null character
jmp End / else end
jms i Type / Type it
jmp Loop / Loop!
End, hlt / Done!
jmp Start
/ Local Data Segment ? Page 1
*0250 / Place String at 0250o
STR, . / STR stores its own address ? string data follows
'Hello World'; 15; 12; 0
IR10=10 / Index Register10 is address 10
/ Subroutine Addresses ? Page 0
*0050 / subroutine entry point stored at address 0050o
Type, XType
/ Subroutine Segment - Page 30
*7400
XType, 0 / Store Return Address Here
tsf / Is Printer Ready?
jmp .-1 / No - Loop! (Wait Loop)
tls / Yes - Print the character!
cla cll / Clear AC and Link
jmp i XType / Return
$Start